//Replication file for: Finnegan, Jared J. 2022. "Institutions, Climate Change, and the Foundations of Long-term Policymaking". Comparative Political Studies.

//Notes: All analyses performed using STATA 14.1. For the cross-national analyses, the year 2000 is used as an arbitrary time frame for investigation. Because these analyses rely on country-level long-term averages, any year in the sample period could be chosen.



**************************
****** Load dataset ******
**************************

//Load "Institutions, Climate Change, and the Foundations of Long-Term Policymaking.dta"

//Set panel structure of data
xtset countryid year



******************************
****** Center variables ******
******************************

by countryid, sort: center lambda_mean_wghtd lambda_mean_wghtd_con lambda_mean_wghtd_prod lambda_mean_wghtd_comp ri ri_rc elect_comp, prefix(d) mean(m) 
by countryid, sort: center ja20f_v2 lfossfuel_prodpercap realgdpgr ja10f unemp gdp_percap10k ind_valueadd lcarbon_inten1 polconiii bci if tin(1995,2009), prefix(d95) mean(m95) 



******************************************
****** Principal component analysis ******
******************************************

pca dis_gall ri_rc
predict pc, score
by countryid, sort: center pc if tin(1995,2009), prefix(d) mean(m) 



***************************
***** Main results ********
***************************

** Figures **

// Figure 1
graph hbar (mean) lambda_mean_wghtd, over(countryid, sort(1) descending) nofill title(" ") ytitle("Thousands of 2005 USD per ton of oil equivalent (toe)")

// Figure 3
graph hbar (mean) lambda_mean_wghtd, over(countryid, sort(1) descending lab(labsize(vsmall))) nofill title("Overall climate change policy investment", size(med)) ytitle("", size(small)) ylabel(-0.4 -0.2 0 0.2 0.4 0.6 0.8 1 1.2) name(g1, replace) nodraw
graph hbar (mean) lambda_mean_wghtd_con, over(countryid, sort(1) descending lab(labsize(vsmall))) nofill title("Costs for consumers", size(med)) ytitle("", size(small)) ylabel(-0.4 -0.2 0 0.2 0.4 0.6 0.8 1 1.2) name(g2, replace) nodraw
graph hbar (mean) lambda_mean_wghtd_prod, over(countryid, sort(1) descending lab(labsize(vsmall))) nofill title("Costs for producers", size(med)) ytitle("Thousands of 2005 USD per ton of oil equivalent", size(small)) ylabel(-0.4 -0.2 0 0.2 0.4 0.6 0.8 1 1.2) name(g3, replace) nodraw
graph hbar (mean) lambda_mean_wghtd_comp, over(countryid, sort(1) descending lab(labsize(vsmall))) nofill title("Compensation", size(med)) ytitle("Thousands of 2005 USD per ton of oil equivalent", size(small)) ylabel(-0.4 -0.2 0 0.2 0.4 0.6 0.8 1 1.2) name(g4, replace) nodraw
graph combine g1 g2 g3 g4, ycommon col(2) xsize(20) ysize(15) name(g5, replace) nodraw
graph display g5

// Figure 4
twoway (scatter mlambda_mean_wghtd dis81_longavg, mlabel(countryid)) (lfitci mlambda_mean_wghtd dis81_longavg if tin(2000,2000), ///
	ciplot(rline) alcolor(gs0) alpattern(dash)), legend(off) ytitle("Overall climate policy investment (1000s USD/toe)") ///
	xtitle("Electoral disproportionality") caption( "R²=.32", ring(0) pos(2)) yline(0)
	
// Figure 5
twoway (lfitci mlambda_mean_wghtd_con dis81_longavg if tin(2000,2000)) ///
	(lfitci mlambda_mean_wghtd_prod dis81_longavg if tin(2000,2000)), ///
	yline(0) ytitle("Climate policy investment (1000s USD/toe)") xtitle("Electoral disproportionality") legend(order(2 "Consumers" 3 "Producers") position(6))

// Figure 6
twoway (scatter mlambda_mean_wghtd mri_rc , mlabel(countryid)) (lfitci mlambda_mean_wghtd mri_rc if tin(2000,2000), ///
	ciplot(rline) alcolor(gs0) alpattern(dash)), legend(off) ytitle("Overall climate policy investment (1000s USD/toe)") xtitle("Concertation") caption( "R²=.47", ring(0) pos(4)) yline(0)

// Figure 7
twoway (scatter mlambda_mean_wghtd mlambda_mean_wghtd_comp , mlabel(countryid)) (lfitci mlambda_mean_wghtd mlambda_mean_wghtd_comp if tin(2000,2000), ///
 ciplot(rline) alcolor(gs0) alpattern(dash)), legend(off) ytitle("Overall climate policy investment (1000s USD/toe)") xtitle("Compensation (1000s USD/toe)") caption( "R²=.77", ring(0) pos(2))
	
// Figure 8	
twoway (scatter mlambda_mean_wghtd mpc , mlabel(countryid)) (lfitci mlambda_mean_wghtd mpc if tin(2000,2000), ciplot(rline) alcolor(gs0) alpattern(dash)), ///
legend(off) ytitle("Overall climate policy investment (1000s USD)") xtitle("Principal component (Electoral rules + interest group intermediation)") caption( "R²=.44", ring(0) pos(4))

// Figure 9
quietly: xtreg lambda_mean_wghtd c.ri_rc##c.dis_gall ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
margins, dydx(ri_rc) at(dis_gall=(0(1)24)) vsquish
marginsplot, yline(0) nodraw xtitle("") ytitle("Climate policy investment") title("Overall") yline(0) name(g1, replace)

quietly: xtreg lambda_mean_wghtd_con c.ri_rc##c.dis_gall ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
margins, dydx(ri_rc) at(dis_gall=(0(1)24)) vsquish
marginsplot, yline(0) nodraw xtitle("") ytitle("") title("Costs for consumers") yline(0) name(g2, replace) 

quietly: xtreg lambda_mean_wghtd_prod c.ri_rc##c.dis_gall ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
margins, dydx(ri_rc) at(dis_gall=(0(1)24)) vsquish
marginsplot, yline(0) nodraw xtitle("Electoral disproportionality") ytitle("Climate policy investment") title("Costs for producers") yline(0) name(g3, replace) 

quietly: xtreg lambda_mean_wghtd_comp c.ri_rc##c.dis_gall ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
margins, dydx(ri_rc) at(dis_gall=(0(1)24)) vsquish
marginsplot, yline(0) nodraw xtitle("Electoral disproportionality") ytitle("") title("Compensation") yline(0) name(g4, replace) 

graph combine g1 g2 g3 g4, title("") ycommon col(2) xsize(20) ysize(15) name(g5, replace) nodraw
graph display g5


** Tables **

// Table 1
est clear
reg mlambda_mean_wghtd dis81_longavg eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model1
reg mlambda_mean_wghtd_con dis81_longavg eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model2
reg mlambda_mean_wghtd_prod dis81_longavg eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model3
reg mlambda_mean_wghtd mri_rc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model4
reg mlambda_mean_wghtd_con mri_rc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model5
reg mlambda_mean_wghtd_prod mri_rc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model6
reg mlambda_mean_wghtd_comp mri_rc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model7
reg mlambda_mean_wghtd mpc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model8
reg mlambda_mean_wghtd_con mpc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model9
reg mlambda_mean_wghtd_prod mpc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model10
reg mlambda_mean_wghtd_comp mpc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model11
esttab, obslast scalars (r2) se star(* 0.10 ** 0.05 *** 0.01) replace

// Table 2
est clear
xtreg lambda_mean_wghtd ri_rc ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
eststo model1
xtreg lambda_mean_wghtd_con ri_rc ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
eststo model2
xtreg lambda_mean_wghtd_prod ri_rc ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
eststo model3
xtreg lambda_mean_wghtd_comp ri_rc ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
eststo model4
xtreg lambda_mean_wghtd c.ri_rc##c.dis_gall ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
eststo model5
xtreg lambda_mean_wghtd_con c.ri_rc##c.dis_gall ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
eststo model6
xtreg lambda_mean_wghtd_prod c.ri_rc##c.dis_gall ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
eststo model7
xtreg lambda_mean_wghtd_comp c.ri_rc##c.dis_gall ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
eststo model8
esttab, obslast scalars (r2) se star(* 0.10 ** 0.05 *** 0.01) replace



*************************************
*********** Online appendix *********
*************************************

** Figures **

// Figure A1
xtline lambda_mean_wghtd if tin(1995,2010), xline(2004) ytitle("Overall climate policy investment")

// Figure A2
twoway (scatter mlambda_mean_wghtd melect_comp , mlabel(countryid)) (lfitci mlambda_mean_wghtd melect_comp if tin(2000,2000), ///
	ciplot(rline) alcolor(gs0) alpattern(dash)), legend(off) ytitle("Overall climate policy investment (1000s USD/toe)") ///
	xtitle("Electoral competition") caption( "R²=.32", ring(0) pos(2)) yline(0) name(g1, replace) nodraw
twoway (lfitci mlambda_mean_wghtd_con melect_comp if tin(2000,2000)) (lfitci mlambda_mean_wghtd_prod melect_comp if tin(2000,2000)), ///
	yline(0) ytitle("") xtitle("Electoral competition") legend(off) xscale(range(0 .8)) name(g2, replace) nodraw
graph combine g1 g2, ycommon col(2) xsize(20) ysize(15) name(g3, replace) nodraw
graph display g3

// Figure A3
twoway (scatter mlambda_mean_wghtd minwincab81_longavg , mlabel(countryid)) (lfitci mlambda_mean_wghtd minwincab81_longavg if tin(2000,2000), ///
	ciplot(rline) alcolor(gs0) alpattern(dash)), legend(off) ytitle("Overall climate policy investment (1000s USD/toe)") ///
	xtitle("Minimal winning one-party cabinets (% of total)") caption( "R²=.41", ring(0) pos(2)) yline(0) name(g1, replace) nodraw
twoway (lfitci mlambda_mean_wghtd_con minwincab81_longavg if tin(2000,2000)) (lfitci mlambda_mean_wghtd_prod minwincab81_longavg if tin(2000,2000)), ///
	yline(0) ytitle("") xtitle("Minimal winning one-party cabinets (% of total)") legend(off) name(g2, replace) nodraw
graph combine g1 g2, ycommon col(2) xsize(20) ysize(15) name(g3, replace) nodraw
graph display g3

// Figure A4 	
twoway (scatter mlambda_mean_wghtd_prod mri_rc , mlabel(countryid)) (lfitci mlambda_mean_wghtd_prod mri_rc if tin(2000,2000), ///
	ciplot(rline) alcolor(gs0) alpattern(dash)), legend(off) ytitle("Costs for producers (1000s USD/toe)") xtitle("Concertation") caption( "R²=.15", ring(0) pos(2)) yline(0)

// Fig A5
twoway (scatter dis81_longavg mri_rc , mlabel(countryid)) (lfitci dis81_longavg mri_rc if tin(2000,2000), ///
	ciplot(rline) alcolor(gs0) alpattern(dash)), legend(off) ytitle("Electoral disproportionality") xtitle("Concertation") caption( "R²=.56", ring(0) pos(2)) yline(0)

// Figure A6
twoway (scatter mlambda_mean_wghtd menv_concern , mlabel(countryid)) (lfitci mlambda_mean_wghtd menv_concern if tin(2000,2000), ciplot(rline) alcolor(gs0) alpattern(dash)), legend(off) ytitle("Overall climate policy investment (1000s USD/toe)") xtitle(" % expressing environmental concern") caption( "R²=.000", ring(0) pos(2))

// Figure A7
twoway (scatter mlambda_mean_wghtd mpay_higher_taxes_will , mlabel(countryid)) (lfitci mlambda_mean_wghtd mpay_higher_taxes_will if tin(2000,2000), ciplot(rline) alcolor(gs0) alpattern(dash)), legend(off) ytitle("Overall climate policy investment (1000s USD/toe)") xtitle("% willing to pay higher taxes to protect environment") caption( "R²=.005", ring(0) pos(2)) 

// Figure A8
twoway (scatter mlambda_mean_wghtd threat if tin(2008,2008) , mlabel(countryid)) (lfitci mlambda_mean_wghtd threat if tin(2008,2008), ciplot(rline) alcolor(gs0) alpattern(dash)), legend(off) ytitle("Overall climate policy investment (1000s USD/toe)") xtitle("% responding that climate change is a personal threat") caption( "R²=.12", ring(0) pos(2))


** Tables **

// Table A1
summ lambda_mean_wghtd lambda_mean_wghtd_con lambda_mean_wghtd_prod lambda_mean_wghtd_comp ///
	dis81_longavg dis_gall ri ri_rc eu inst_env2 ja20f_v2 fossfuel_prodpercap realgdpgr ja10f unemp gdp_percap10k ind_valueadd lcarbon_inten1 polconiii bci if tin(1995,2009)

// Table A4
est clear
reg elect_comp dis81_longavg, r
eststo model1
reg minwincab81_longavg dis81_longavg if tin(2000,2000), r
eststo model2
esttab, obslast scalars (r2) se star(* 0.10 ** 0.05 *** 0.01)

// Table A5
est clear
reg mlambda_mean_wghtd melect_comp eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model1
reg mlambda_mean_wghtd_con melect_comp eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r 
eststo model2
reg mlambda_mean_wghtd_prod melect_comp eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model3
esttab, obslast scalars (r2) se star(* 0.10 ** 0.05 *** 0.01)

// Table A6
est clear
reg mlambda_mean_wghtd minwincab81_longavg eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model1
reg mlambda_mean_wghtd_con minwincab81_longavg eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r 
eststo model2
reg mlambda_mean_wghtd_prod minwincab81_longavg eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model3
esttab, obslast scalars (r2) se star(* 0.10 ** 0.05 *** 0.01)

// Table A7
est clear
reg mlambda_mean_wghtd mri eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model1
reg mlambda_mean_wghtd_con mri eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model2
reg mlambda_mean_wghtd_prod mri eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model3
reg mlambda_mean_wghtd_comp mri eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2000,2000), r
eststo model4
esttab, obslast scalars (r2) se star(* 0.10 ** 0.05 *** 0.01) replace

// Table A8
est clear
xtreg lambda_mean_wghtd ri ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
eststo model5
xtreg lambda_mean_wghtd_con ri ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
eststo model6
xtreg lambda_mean_wghtd_prod ri ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
eststo model7
xtreg lambda_mean_wghtd_comp ri ja20f_v2 fossfuel_prodpercap realgdpgr i.year, fe vce(cl countryid)
eststo model8
esttab, obslast scalars (r2) se star(* 0.10 ** 0.05 *** 0.01) replace

// Table A9
est clear
xtreg lambda_mean_wghtd ri_rc ja20f_v2 fossfuel_prodpercap realgdpgr ja10f unemp gdp_percap10k ind_valueadd carbon_inten1 polconiii bci i.year, fe vce(cl countryid)
eststo model1
xtreg lambda_mean_wghtd_con ri_rc ja20f_v2 fossfuel_prodpercap realgdpgr ja10f unemp gdp_percap10k ind_valueadd carbon_inten1 polconiii bci i.year, fe vce(cl countryid)
eststo model2
xtreg lambda_mean_wghtd_prod ri_rc ja20f_v2 fossfuel_prodpercap realgdpgr ja10f unemp gdp_percap10k ind_valueadd carbon_inten1 polconiii bci  i.year, fe vce(cl countryid)
eststo model3
xtreg lambda_mean_wghtd_comp ri_rc ja20f_v2 fossfuel_prodpercap realgdpgr ja10f unemp gdp_percap10k ind_valueadd carbon_inten1 polconiii bci i.year, fe vce(cl countryid)
eststo model4
esttab, obslast scalars (r2) se star(* 0.10 ** 0.05 *** 0.01) replace

// Table A10
est clear
xtreg lambda_mean_wghtd mri_rc eu inst_env2 m95ja20f_v2 m95lfossfuel_prodpercap m95realgdpgr dri_rc d95ja20f_v2 d95lfossfuel_prodpercap d95realgdpgr i.year, re vce(cl countryid)
eststo model1
xtreg lambda_mean_wghtd_con mri_rc eu inst_env2 m95ja20f_v2 m95lfossfuel_prodpercap m95realgdpgr dri_rc d95ja20f_v2 d95lfossfuel_prodpercap d95realgdpgr i.year, re vce(cl countryid)
eststo model2
xtreg lambda_mean_wghtd_prod mri_rc eu inst_env2 m95ja20f_v2 m95lfossfuel_prodpercap m95realgdpgr dri_rc d95ja20f_v2 d95lfossfuel_prodpercap d95realgdpgr i.year, re vce(cl countryid)
eststo model3
xtreg lambda_mean_wghtd_comp mri_rc eu inst_env2 m95ja20f_v2 m95lfossfuel_prodpercap m95realgdpgr dri_rc d95ja20f_v2 d95lfossfuel_prodpercap d95realgdpgr i.year, re vce(cl countryid)
eststo model4
xtreg lambda_mean_wghtd mri_rc eu inst_env2 m95ja20f_v2 m95lfossfuel_prodpercap m95realgdpgr m95ja10f m95unemp m95gdp_percap10k m95ind_valueadd m95lcarbon_inten1 m95polconiii m95bci dri_rc d95ja20f_v2 d95lfossfuel_prodpercap d95realgdpgr d95ja10f d95unemp d95gdp_percap10k d95ind_valueadd d95lcarbon_inten1 d95polconiii d95bci i.year, re vce(cl countryid) 
eststo model5
xtreg lambda_mean_wghtd_con mri_rc eu inst_env2 m95ja20f_v2 m95lfossfuel_prodpercap m95realgdpgr m95ja10f m95unemp m95gdp_percap10k m95ind_valueadd m95lcarbon_inten1 m95polconiii m95bci dri_rc d95ja20f_v2 d95lfossfuel_prodpercap d95realgdpgr d95ja10f d95unemp d95gdp_percap10k d95ind_valueadd d95lcarbon_inten1 d95polconiii d95bci i.year, re vce(cl countryid) 
eststo model6
xtreg lambda_mean_wghtd_prod mri_rc eu inst_env2 m95ja20f_v2 m95lfossfuel_prodpercap m95realgdpgr m95ja10f m95unemp m95gdp_percap10k m95ind_valueadd m95lcarbon_inten1 m95polconiii m95bci dri_rc d95ja20f_v2 d95lfossfuel_prodpercap d95realgdpgr d95ja10f d95unemp d95gdp_percap10k d95ind_valueadd d95lcarbon_inten1 d95polconiii d95bci i.year, re vce(cl countryid) 
eststo model7
xtreg lambda_mean_wghtd_comp mri_rc eu inst_env2 m95ja20f_v2 m95lfossfuel_prodpercap m95realgdpgr m95ja10f m95unemp m95gdp_percap10k m95ind_valueadd m95lcarbon_inten1 m95polconiii m95bci dri_rc d95ja20f_v2 d95lfossfuel_prodpercap d95realgdpgr d95ja10f d95unemp d95gdp_percap10k d95ind_valueadd d95lcarbon_inten1 d95polconiii d95bci i.year, re vce(cl countryid) 
eststo model8
esttab, obslast scalars (r2) se star(* 0.10 ** 0.05 *** 0.01) replace

// Table A11
est clear
reg lambda_mean_wghtd dis81_longavg eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(1995,1995), r
eststo model1
reg lambda_mean_wghtd_con dis81_longavg eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(1995,1995), r
eststo model2
reg lambda_mean_wghtd_prod dis81_longavg eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(1995,1995), r
eststo model3
reg lambda_mean_wghtd mri_rc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(1995,1995), r
eststo model4
reg lambda_mean_wghtd_con mri_rc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(1995,1995), r
eststo model5
reg lambda_mean_wghtd_prod mri_rc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(1995,1995), r
eststo model6
reg lambda_mean_wghtd_comp mri_rc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(1995,1995), r
eststo model7
reg lambda_mean_wghtd mpc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(1995,1995), r
eststo model8
reg lambda_mean_wghtd_con mpc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(1995,1995), r
eststo model9
reg lambda_mean_wghtd_prod mpc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(1995,1995), r
eststo model10
reg lambda_mean_wghtd_comp mpc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(1995,1995), r
eststo model11
esttab, obslast scalars (r2) se star(* 0.10 ** 0.05 *** 0.01) replace

// Table A12
est clear
reg lambda_mean_wghtd dis81_longavg eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2009,2009), r
eststo model1
reg lambda_mean_wghtd_con dis81_longavg eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2009,2009), r
eststo model2
reg lambda_mean_wghtd_prod dis81_longavg eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2009,2009), r
eststo model3
reg lambda_mean_wghtd mri_rc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2009,2009), r
eststo model4
reg lambda_mean_wghtd_con mri_rc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2009,2009), r
eststo model5
reg lambda_mean_wghtd_prod mri_rc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2009,2009), r
eststo model6
reg lambda_mean_wghtd_comp mri_rc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2009,2009), r
eststo model7
reg lambda_mean_wghtd mpc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2009,2009), r
eststo model8
reg lambda_mean_wghtd_con mpc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2009,2009), r
eststo model9
reg lambda_mean_wghtd_prod mpc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2009,2009), r
eststo model10
reg lambda_mean_wghtd_comp mpc eu inst_env2 m95ja20f_v2 m95realgdpgr m95lfossfuel_prodpercap if tin(2009,2009), r
eststo model11
esttab, obslast scalars (r2) se star(* 0.10 ** 0.05 *** 0.01) replace

// Table A13
est clear
xtreg lambda_mean_wghtd c.ri_rc##c.dis_gall ja20f_v2 fossfuel_prodpercap realgdpgr ja10f unemp gdp_percap10k ind_valueadd carbon_inten1 polconiii bci i.year, fe vce(cl countryid)
eststo model1
xtreg lambda_mean_wghtd_con c.ri_rc##c.dis_gall ja20f_v2 fossfuel_prodpercap realgdpgr ja10f unemp gdp_percap10k ind_valueadd carbon_inten1 polconiii bci i.year, fe vce(cl countryid)
eststo model2
xtreg lambda_mean_wghtd_prod c.ri_rc##c.dis_gall ja20f_v2 fossfuel_prodpercap realgdpgr ja10f unemp gdp_percap10k ind_valueadd carbon_inten1 polconiii bci  i.year, fe vce(cl countryid)
eststo model3
xtreg lambda_mean_wghtd_comp c.ri_rc##c.dis_gall ja20f_v2 fossfuel_prodpercap realgdpgr ja10f unemp gdp_percap10k ind_valueadd carbon_inten1 polconiii bci i.year, fe vce(cl countryid)
eststo model4
esttab, obslast scalars (r2) se star(* 0.10 ** 0.05 *** 0.01) replace
